home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / addbfld.int < prev    next >
Text File  |  1996-04-08  |  1KB  |  49 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   DBFIELD.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdDBFld;
  13.   {-Field information form for TDBFieldList property editor}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  19.   Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, AdDataB;
  20.  
  21. type
  22.   {.Z+}
  23.   TFrmFieldInfo = class(TForm)
  24.     OkBtn: TBitBtn;
  25.     CancelBtn: TBitBtn;
  26.     HelpBtn: TBitBtn;
  27.     GroupBox1: TGroupBox;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     StrTypeCheckBox: TCheckBox;
  31.     FieldNameEdit: TEdit;
  32.     MaxLenEdit: TEdit;
  33.     procedure OkBtnClick(Sender: TObject);
  34.     procedure StrTypeCheckBoxClick(Sender: TObject);
  35.  
  36.   protected
  37.     EditData : TDBFieldInfo;
  38.     RecSize  : Word;
  39.     DBFields : TDBFieldList;
  40.  
  41.   public
  42.     procedure Initialize(FieldInfo : TDBFieldInfo; Size : Word; Fields : TDBFieldList);
  43.       {-Initialize dialog fields with values from FieldInfo}
  44.     procedure AcceptValues;
  45.       {-Place values from dialog fields into EditData}
  46.   end;
  47.   {.Z-}
  48.  
  49.